home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1999 January - Disc 2 / Macworld (1999-01) (Disk 2).dmg / Serious Demos / Symbolic Composer 4.2 / Environment / Projects / Tutorial Material / Zone Tutorial / Structure Examples / 4. Demo2 < prev    next >
Lisp/Scheme  |  1998-10-26  |  700b  |  34 lines
  1. ;  Demo2 - try all combinations of mel & rhy.
  2.  
  3. (setq tonals 
  4.       (activate-tonality (chromatic c 4) (major c 4) (c maj maj7 2 4) 
  5.                          (b& min 7 1 3) (aeolian f 3)))
  6.  
  7. (setq mel1 '(a b c d))
  8. (setq mel2 '(a b c d ac bd ad cb))
  9. (setq mel3 '((a b c)))
  10.  
  11. (setq rhy1 '(1/16 1/16 1/16 1/16 -1/16 1/16 1/16 1/16 
  12.              -1/16 1/16 -1/16 1/16 1/16 1/16 -1/16 1/16)
  13. )
  14.  
  15. (setq rhy2 '(1/16 1/16 1/16 1/16 -1/16 1/16 1/16 1/16 
  16.              -1/16 1/8 1/16 1/16 1/8 1/16)
  17. )
  18.  
  19. (def-symbol
  20.    solo mel1
  21. )
  22.  
  23. (def-length
  24.    solo rhy1
  25. )
  26.  
  27. (compile-song-p "ccl;output:" 1/4 "demo2"
  28. ; BARS            |---|---|---|---| 
  29. changes  tonals  "    .   . . .   "
  30. solo     changes "----------------"
  31. )
  32.  
  33.  
  34.